home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Network Support Library
/
RoseWare - Network Support Library.iso
/
apidev
/
tpapi.exe
/
NWENCRYP.PA1
< prev
next >
Wrap
Text File
|
1994-01-14
|
3KB
|
52 lines
{#Z+}
(*(10U&l12D(s4099T&k2S*)
{***************************************************************************}
{** Program : NWCRYPT **}
{***************************************************************************}
{** Version : 1.4 ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** **}
{** **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** Provides Netware encryption services. **}
{** **}
{** **}
{** This code is provided as is and with kind permission from Barry Nance **}
{** (c) Copyright 1993 Barry Nance **}
{** **}
{** I have changed Barry's variable names to be more readable but apart **}
{** from that the source is the same as Barry's. **}
{** **}
{** The complete source to ELOGON can be found at the end of this unit. **}
{** ELOGON was found in the Software Corner, a monthly feature of Byte **}
{** magazine. **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
{#Z-}
UNIT NWENCRYP;
INTERFACE
USES
nwvar;
PROCEDURE Shuffle (var ObjectID, Password; PasswordLength : byte; VAR OutputArray);
PROCEDURE Shuffle1 (InputArray : TByte32Array; VAR OutputArray);
PROCEDURE NetwareEncrypt (VAR fra, buf, til);